Option Explicit
Sub B_Sample022()
    Dim myRng1 As Range
    Dim myRng2 As Range
    On Error Resume Next
      Set myRng1 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If myRng1 Is Nothing Then
		MsgBox "Ssb"
		Exit Sub
    End If
    For Each myRng2 In myRng1
    	If myRng2.HasArray = True Then Exit For
    Next
    MsgBox Not myRng2 Is Nothing
    Set myRng1 = Nothing			'
    Set myRng2 = Nothing
End Sub
